<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.00</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>7419</cardID>
<listID>8809</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on Runplayglobal kick, players, post, qtr, tygo to card 5XFootball (ty*3)+106,(ty*3)+106if players=1 thenhide button 2elsehide button 3show button 6end ifhide card field 1hide card field 2Updateif post=1 thenvisual effect iris opengo to card "Goal Post"end ifif kick=1 thenwait for 1 secondvisual effect scroll downgo to card "KICK OFF"end ifif qtr=6 thenvisual effect dissolve slowgo to card "Game Over"end ifend Runplayon Setupglobal ty,td,sf,pen,dwn,time,ptime,qtr,yop,kick,dir,ofns,team1,mdwglobal score1,score2,play,ds,name1,name2,t1p,t1r,t2p,t2r,lastdefglobal defcntput 250 into dsput "KICK OFF!" into playput 0 into ofnsif dir=0 then put 65 into tyelse put 35 into typut 0 into lastdefput 0 into defcntput 0 into t1pput 0 into t1rput 0 into t2pput 0 into t2rput 0 into dwnput 0 into mdwput 900 into timeput 0 into ptimeput 1 into qtrput 1 into yopput 1 into kickvisual effect dissolve slowgo to card 5put score1 into card field 6put score2 into card field 7put name1 into card field 8put name2 into card field 9put qtr into card field 14set dragSpeed to dsRunplayend Setupon Drawballglobal tyXFootball (ty*3)+106,(ty*3)+106end Drawballon Cointossglobal coin, players, coinres, team1, starttshow card button 2show card button 3put the random of 10 into tossif toss<=5 and coin is true or toss>5 and coin is false thenput true into coinresshow card field 3end ifif toss<=5 and coin is false or toss>5 and coin is true thenput false into coinresshow card field 4if players=1 thenclick at the location of card button 2click at the location of card button 5put true into team1put true into starttput 0 into dirend ifend ifend Cointosson Teamnamesglobal players, name1, name2, coinres, compwait for 1 secondif players=1 thenif coinres is true thenask "What is your team's name?"put it into name1put "Macintosh" into name2put false into compelseask "What is your team's name?"put it into name2put "Macintosh" into name1put true into compend ifelseask "Please name the team who won the toss:"put it into name1ask "Please name the team who lost the toss:"put it into name2end ifwait for 1 secondSetupend Teamnameson Penaltiesglobal ty, dwn, dir, yop, pen, drop, incput 0 into penput the random of 100 into pif p>=95 thenplay "Refs Whistle"put 0 into dropput 0 into incput 0 into yopput 1 into penput the random of 100 into qif q>=50 and q<=100 then put 5 into yopif q>=28 and q<50 then put 10 into yopif q>=0 and q<28 then put 15 into yopput the random of 100 into qif q>50 then put (-yop) into yopif q>75 then go to card "Ditka"if yop=-5 and q>75 then play "Falsestart"if (yop=10 or yop=-10) then play "Holding"if yop=15 and q<25 then play "Roughing the Passer"if dir=0 thenif ty<=15 and yop<0 then put trunc(-ty/2) into yopif ty>=85 and yop>0 then put trunc((100-ty)/2) into yopend ifif dir=1 thenif ty<=15 and yop>0 then put trunc(ty/2) into yopif ty>=85 and yop<0 then put trunc(-(100-ty)/2) into yopend ifput dwn-1 into dwnend ifend Penaltieson Downglobal dwn, dir, ty, fdown, team1,mdwif dwn=0 thenif dir=0 thenshow card button 7hide card button 8elseshow card button 8hide card button 7end ifend ifif dir=0 thenif ty>=fdown thenput 0 into dwnput 0 into mdwif ty>=90 then put 100 into fdownelse put ty+10 into fdownend ifelseif ty<=fdown thenput 0 into dwnput 0 into mdwif ty<=10 then put 0 into fdownelse put ty-10 into fdownend ifend ifput dwn+1 into dwnput mdw+1 into mdwif dwn=5 thenput 1 into dwnput 1 into mdwif team1 is true thenput false into team1elseput true into team1end ifif dir=0 thenput ty-10 into fdownput 1 into direlseput ty+10 into fdownput 0 into dirend ifif dir=0 thenshow card button 7hide card button 8elseshow card button 8hide card button 7end ifend ifend Downon Yardlineglobal ty, ydl, td, sf, dirput false into tdput false into sfif ty>=100 and dir=0 then Touchdownif ty<=0 and dir=1 then Touchdownif ty>=100 and dir=1 then Saftyif ty<=0 and dir=0 then Saftyput ty into ydlif ty>50 then put 100-ty into ydlend Yardlineon Placemarkerglobal ty, dir, dwn, dm,mdw, kickif mdw=1 and kick=0 thenif dir=0 then put (3*ty)+121 into dmelse put (3*ty)+92 into dmset loc of button 10 to dm,97end ifend Placemarkeron Timerglobal qtr, ptime, time, ty, dir,fdown,min,sec,kick,team1,startt,dmglobal sec1, sec2, min1, min2, score1, score2put time-ptime into timeput trunc(time/60) into minput (time/60-(min))*60 into secif time<0 thenplay "Refs Whistle"put "End of quarter" into card field 21wait 1 secondput qtr+1 into qtrif qtr=5 thenif score1=score2 thenput 5 into qtrelseput 6 into qtrend ifend ifXFootball (3*ty)+106,(3*(100-ty))+106put 100-ty into typut 100-fdown into fdownif dir=0 then put 1 into direlse put 0 into dirput 512-dm into dmput dm into markHset loc of button 10 to markH,97if qtr=3 or qtr=5 thenif startt is true then put false into team1else put true into team1put 1 into kickif dir=0 then put 65 into tyelse put 35 into tyend ifput 900 into timeput trunc(time/60) into minput (time/60-(min))*60 into secif qtr=2 or qtr=4 then Drawballif qtr=5 then put "S" into card field 14else put qtr into card field 14if dir=0 thenshow card button 7hide card button 8elseshow card button 8hide card button 7end ifend ifput trunc((.01)+sec/10) into sec1put sec-(10*sec1) into sec2put trunc(min/10) into min1put min-(10*min1) into min2end Timeron Updateglobal ty, fdown, dwn, dir, ydl, score1, score2, name1, name2, team1global td, qtr, min, sec, players, comp, def, yop, ofns, kick, penglobal sec1,sec2,min1,min2, play, post, ds, drop, inc, plytypglobal pput play into card field 21if pen>0 thenshow card field 10show card field 11put yop into card field 11wait for 1 secondhide card field 10hide card field 11end ifif pen=0 then Turnoversif (kick=0) thenif dir=0 thenput ty+yop into ftyput -drop into dropput -inc into incelseput ty-yop into ftyend ifif fty<0 then put -5 into ftyif fty>100 then put 105 into ftyput (ty*3)+106 into sput (fty*3)+106 into fXFootball s,s+dropif drop<>0 then wait 20 ticksif inc<>0 thenXFootball s+drop,s-incput "Incomplete" into card field 21wait 30 ticksXFootball s-inc,selseXFootball s+drop,fif p<7 and plytyp=1 and pen=0 thenput "Interference" into card field 21play "PassInterference"end ifend ifput fty into tyend ifYardlineDownPlacemarkerTimerif ofns>97 thenif ofns=98 then put "TOUCHDOWN!!" into card field 21if ofns=99 then put "SAFETY!!" into card field 21wait 1 secondend ifput dwn into card field 3put ydl into card field 5if kick=0 thenput score1 into card field 6put score2 into card field 7end ifif team1 is true thenshow card button 4hide card button 5elseshow card button 5hide card button 4end ifput min1 & min2 && ":" && sec1 & sec2 into card field 13if players=1 and comp is true thenif team1 is true thenshow button 6hide button 3elseshow button 3hide button 6end ifend ifif players=1 and comp is false thenif team1 is false thenshow button 6hide button 3elseshow button 3hide button 6end ifend ifput abs(ty-fdown) into card field 4if fdown=100 or fdown=0 then put "G" into card field 4put the random of 100 into mad-- play "Madden-79"--if mad<10 thenif plytyp=0 thenif mad<2 or mad>97 then play "Madden-79"if mad>=2 and mad<4 then play "Madden-Bighole"if mad>=4 and mad<5 then play "Madden-Block"if mad>=5 and mad<7 then play "Madden-Boom"if mad>=7 and mad<9 then play "Madden-Fbshould"if mad>=9 and mad<10 then play "Madden1-5"end ifif plytyp=1 thenif mad<2 or mad>97 then play "Madden-Ask"if mad>=2 and mad<4 then play "Madden-Lookin"if mad>=4 and mad<6 then play "Madden-Passprotect"if mad>=6 and mad<8 then play "Madden-Pretty Good"if mad>=8 and mad<10 then play "Madden-Tough"end ifend ifend Updateon Touchdownglobal team1, score1, score2, ty, dir, td, kick, good, post,ofnsglobal intrcpt, qtr, playput the random of 4 into sndtdif sndtd=1 then play "Touchdown"if sndtd=2 then play "Touchdown2"if sndtd=3 then play "Touchdown3"if sndtd=4 then play "Touchdown4"put "Touchdown" into playput 98 into ofnsif qtr=5 then put 6 into qtrput true into tdput 1 into kickif dir=0 thenput 1 into dirput 35 into tyelseput 0 into dirput 65 into tyend ifif team1 is true thenput score1+6 into score1elseput score2+6 into score2end ifput the random of 99 into expntif expnt>=95 thenput 0 into epvput false into goodput 1 into postelseput 1 into epvput true into goodput 1 into postend ifif team1 is true thenput score1+epv into score1elseput score2+epv into score2end ifif team1 is true thenput false into team1elseput true into team1end ifwait for 1 secondend Touchdownon Saftyglobal team1, score1, score2, ty, dir, td, kick, ofns, qtr, playput "Safty" into playput 99 into ofnsif qtr=5 then put 6 into qtrplay "Refs Whistle"if team1 is true thenput score2+2 into score2elseput score1+2 into score1end ifif team1 is true thenput false into team1elseput true into team1end ifif dir=0 thenput 1 into dirput 20 into tyelseput 0 into dirput 80 into tyend ifput true into tdput 1 into kickend Saftyon Turnoversglobal plytyp, good, kick, onside, intrcptput 0 into intrcptif good is true or kick=1 then exit Turnoversput the random of 100 into tif onside=1 then put 40 into maxelse put 4 into maxif t<=max and plytyp=0 then Fumbleif t<=5 and plytyp=1 then Interceptionput 0 into onsideend Turnoverson Fumbleglobal team1, ty, dir, td, dwn, yopplay "Fumble"show card field 12put the random of 20 into exydif exyd>=10 then put 4 into dwnwait for 2 secondshide card field 12end Fumbleon FieldGoalglobal ty, dwn, dir, team1, score1, score2, good, yop, kick, ofns,postglobal qtr, play, drop, incput "Field Goal" into playput 0 into dropput 0 into incput 4 into ofnsput 0 into yopif dir=0 then put 110-ty into diselse put ty+10 into disput the random of 75 into prbif prb>=dis and prb<=75 thenif qtr=5 then put 6 into qtrput true into goodif team1 is true thenput score1+3 into score1put false into team1elseput score2+3 into score2put true into team1end ifif dir=0 thenput 35 into typut 1 into direlseput 65 into typut 0 into dirend ifend ifif good is true thenput 1 into kickend ifput 4 into dwnput 1 into postend FieldGoalon Interceptionglobal ty, dwn, dir, fdown, team1, ptime, fdown, yop, ofns, plytyp,mdwglobal play, ds, drop, inc, intrcptput "Interception" into playput 0 into incput 0 into dropput 0 into plytypput 1 into ofnsput 14 into ptimeput the random of 99 into kickput the random of 99 into rtnif kick >= 95 and kick <100 then put 55 into koif kick >= 90 and kick <95 then put 48 into koif kick >= 70 and kick <90 then put 34 into koif kick >= 40 and kick <70 then put 25 into koif kick <40 then put 16 into koif rtn >= 97 and rtn <100 then put 100 into rif rtn >= 94 and rtn <97 then put 65 into rif rtn >= 89 and rtn <94 then put 47 into rif rtn >= 75 and rtn <89 then put 33 into rif rtn >= 65 and rtn <75 then put 25 into rif rtn >= 30 and rtn <65 then put 16 into rif rtn >= 15 and rtn <30 then put 9 into rif rtn <15 then put 5 into rgo to card 5set dragSpeed to dsif dir=0 thenput ty+ko into ftyput -15 into drelseput ty-ko into ftyput 15 into drend ifif fty>100 then put 102 into ftyif fty<0 then put -2 into f
 (1993).iso/pc/mac/__cd_fun/__sports/hyperfoo.00/PATs.png){kind=link}